home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_gawk.idb / usr / freeware / share / awk / readable.awk.z / readable.awk
Text File  |  2002-07-08  |  443b  |  17 lines
  1. # readable.awk --- library file to skip over unreadable files
  2. #
  3. # Arnold Robbins, arnold@gnu.org, Public Domain
  4. # October 2000
  5.  
  6. BEGIN {
  7.     for (i = 1; i < ARGC; i++) {
  8.         if (ARGV[i] ~ /^[A-Za-z_][A-Za-z0-9_]*=.*/ \
  9.             || ARGV[i] == "-")
  10.             continue    # assignment or standard input
  11.         else if ((getline junk < ARGV[i]) < 0) # unreadable
  12.             delete ARGV[i]
  13.         else
  14.             close(ARGV[i])
  15.     }
  16. }
  17.